home *** CD-ROM | disk | FTP | other *** search

---

/ Developer Source 14 / Developer Source Volume 14 (I-MODE Publications, Inc.)(1999).iso / orinf / jun96 / hoskf105.gif

< prev

next >

Graphics Interchange Format  |  1998-02-10  |  9KB  |  577x330  |  4-bit (12 colors)

Labels: text | electronics | screenshot | display | software | number | computer icon | web page | font | operating system | website
OCR: embCallMove Properties D > MouseMove MouseUp Sub MouseUp(x as Integer, y as Integer, shift as Integer) Application. Set Cursor ( 1 ) PositionX = embCall. Positionx PositionY = embCall. PositionY IF x > repSched. PositionX AND x < vsbSched. PositionX THEN IF y > repSched. PositionY AND y < repSched. PositionY + repSched. SizeY THEN VRow = CINT( ( y - repSched. PositionY ) / 25 ) + 1 + vsbSched. ScrollPos DIM vRec AS Object VRec = repSched. GetRecordset ( ) VRec. Set CurRow ( vRow ) VRec. Set ColVal ( "EVENT", Label ) END IF END IF

---